.include _hwdefs.asm
.include _clrdefs.asm

;; Variables
.org SYSRAM
stack: byte[128]

;; Main
.org SYSROM
lds stack
jss cls

hlt

;; Clear the screen
FUNC cls: {
  ldp screen.char
    ldc $00 ;; Blank
    ldq screen.color
    ldb CLR_BLACK ;; Black
    .cls_loop: {
      stc *p++
      stb *q++
      lda pl
      cmp (lo(COLOR))
      jnz .cls_loop
      lda ph
      cmp (hi(COLOR))
    jnz }
  rts
}
